home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / window2a / clsclass.cls next >
Text File  |  1999-09-06  |  4KB  |  140 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsClassInfo"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  17. Option Explicit
  18.  
  19. ' Name:     Windows Information Viewer
  20. ' Author:   Chong Long Choo
  21. ' Date:     06 September 1999
  22.  
  23. Private mvarCS_BYTEALIGNCLIENT As Boolean
  24. Private mvarCS_BYTEALIGNWINDOW As Boolean
  25. Private mvarCS_CLASSDC As Boolean
  26. Private mvarCS_DBLCLKS As Boolean
  27. Private mvarCS_PUBLICCLASS As Boolean
  28. Private mvarCS_HREDRAW As Boolean
  29. Private mvarCS_NOCLOSE As Boolean
  30. Private mvarCS_OWNDC As Boolean
  31. Private mvarCS_PARENTDC As Boolean
  32. Private mvarCS_SAVEBITS As Boolean
  33. Private mvarCS_VREDRAW As Boolean
  34. Private mvarClass_Extra As Long
  35. Private mvarWord_Extra As Long
  36.  
  37. Public Property Let Word_Extra(ByVal vData As Long)
  38.     mvarWord_Extra = vData
  39. End Property
  40.  
  41. Public Property Get Word_Extra() As Long
  42.     Word_Extra = mvarWord_Extra
  43. End Property
  44.  
  45. Public Property Let Class_Extra(ByVal vData As Long)
  46.     mvarClass_Extra = vData
  47. End Property
  48.  
  49. Public Property Get Class_Extra() As Long
  50.     Class_Extra = mvarClass_Extra
  51. End Property
  52.  
  53. Public Property Let CS_VREDRAW(ByVal vData As Boolean)
  54.     mvarCS_VREDRAW = vData
  55. End Property
  56.  
  57. Public Property Get CS_VREDRAW() As Boolean
  58.     CS_VREDRAW = mvarCS_VREDRAW
  59. End Property
  60.  
  61. Public Property Let CS_SAVEBITS(ByVal vData As Boolean)
  62.     mvarCS_SAVEBITS = vData
  63. End Property
  64.  
  65. Public Property Get CS_SAVEBITS() As Boolean
  66.     CS_SAVEBITS = mvarCS_SAVEBITS
  67. End Property
  68.  
  69. Public Property Let CS_PARENTDC(ByVal vData As Boolean)
  70.     mvarCS_PARENTDC = vData
  71. End Property
  72.  
  73. Public Property Get CS_PARENTDC() As Boolean
  74.     CS_PARENTDC = mvarCS_PARENTDC
  75. End Property
  76.  
  77. Public Property Let CS_OWNDC(ByVal vData As Boolean)
  78.     mvarCS_OWNDC = vData
  79. End Property
  80.  
  81. Public Property Get CS_OWNDC() As Boolean
  82.     CS_OWNDC = mvarCS_OWNDC
  83. End Property
  84.  
  85. Public Property Let CS_NOCLOSE(ByVal vData As Boolean)
  86.     mvarCS_NOCLOSE = vData
  87. End Property
  88.  
  89. Public Property Get CS_NOCLOSE() As Boolean
  90.     CS_NOCLOSE = mvarCS_NOCLOSE
  91. End Property
  92.  
  93. Public Property Let CS_HREDRAW(ByVal vData As Boolean)
  94.     mvarCS_HREDRAW = vData
  95. End Property
  96.  
  97. Public Property Get CS_HREDRAW() As Boolean
  98.     CS_HREDRAW = mvarCS_HREDRAW
  99. End Property
  100.  
  101. Public Property Let CS_PUBLICCLASS(ByVal vData As Boolean)
  102.     mvarCS_PUBLICCLASS = vData
  103. End Property
  104.  
  105. Public Property Get CS_PUBLICCLASS() As Boolean
  106.     CS_PUBLICCLASS = mvarCS_PUBLICCLASS
  107. End Property
  108.  
  109. Public Property Let CS_DBLCLKS(ByVal vData As Boolean)
  110.     mvarCS_DBLCLKS = vData
  111. End Property
  112.  
  113. Public Property Get CS_DBLCLKS() As Boolean
  114.     CS_DBLCLKS = mvarCS_DBLCLKS
  115. End Property
  116.  
  117. Public Property Let CS_CLASSDC(ByVal vData As Boolean)
  118.     mvarCS_CLASSDC = vData
  119. End Property
  120.  
  121. Public Property Get CS_CLASSDC() As Boolean
  122.     CS_CLASSDC = mvarCS_CLASSDC
  123. End Property
  124.  
  125. Public Property Let CS_BYTEALIGNWINDOW(ByVal vData As Boolean)
  126.     mvarCS_BYTEALIGNWINDOW = vData
  127. End Property
  128.  
  129. Public Property Get CS_BYTEALIGNWINDOW() As Boolean
  130.     CS_BYTEALIGNWINDOW = mvarCS_BYTEALIGNWINDOW
  131. End Property
  132.  
  133. Public Property Let CS_BYTEALIGNCLIENT(ByVal vData As Boolean)
  134.     mvarCS_BYTEALIGNCLIENT = vData
  135. End Property
  136.  
  137. Public Property Get CS_BYTEALIGNCLIENT() As Boolean
  138.     CS_BYTEALIGNCLIENT = mvarCS_BYTEALIGNCLIENT
  139. End Property
  140.